﻿Namespace Saglik.Kancubugu
	Module Functions

		Sub Sil(Token As Token, rowid As Integer)
			Token.ExecSQL("delete from ssdmerkez..skancubuk where rowid = @rowid", rowid)
		End Sub

		Sub KurulSil(Token As Token, rowid As Integer)
			Token.ExecSQL("delete from ssdmerkez..skurulcubuk where rowid = @rowid", rowid)
		End Sub

		Function Liste(Token As Token, d1 As Date, d2 As Date) As Recordset
			Return Token.OpenSQL("select *,case when len(sno)>8 then 'SGY' else 'SSY' end as yasa from ssdmerkez..skancubuk where islemtar between @d1 and @d2", d1, d2)
		End Function

	End Module
End Namespace
